COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<< 			Feature summary
C00005 ENDMK
C⊗;
.<< 			Feature summary
.Start with
.require "memo.pub[let,jmc]" source;
.>>
.DEVICE XGP;
.PAGE FRAME 52 HIGH 80 WIDE;
.evenleftborder ← oddleftborder ← 1000;
.area text lines 4 to 52;
.title area heading lines 1 to 3
.place text;
.sname←null;
.every heading(, {sname}, {page}) ;
.
.TURN ON "α{∂%"; turn on "_" for "#" ;
.FONT 1 "BAXL30";
.FONT 2 "BAXM30";
.FONT 3 "baxb30";
.FONT 4 "SUB";
.FONT 5 "SUP";
.FONT 6 "BASL35";
.FONT 7 "NGR25";
.FONT 8 "MATH30";
.FONT 9 "FIX25";
.FONT A "GRK30";
.font B "zero30"
.FONT C "BAXI30";
.FONT D "MS25";
.at "⊗"word" "	⊂ ("%2word%* ") ⊃;
.COUNT ITEM
.COUNT SUBITEM IN ITEM
.COUNT NOTE inline
.AT "~" TEXT "~"; ⊂
.SEND NOTES ⊂
.{NOTE!}. TEXT
.
.⊃;
.⊃;
.AT "$" ⊂ NEXT NOTE; ("%5"&NOTE!&"%*");⊃;
.AT "#" ⊂NEXT ITEM;(ITEM!);⊃;
.AT "&" ⊂NEXT SUBITEM;ONCE INDENT 10;(ITEM!&"."&SUBITEM!);⊃;
.macro cb(head) ⊂ if lines<7 then next page else skip; once center; select 3
head

.⊃
.macro bb(head) ⊂ if lines<7 then next page else skip; once select 3
head

.⊃

.count eq inline  from 1 to 999;
.at "!!" lab " " ⊂
.lab next eq
.eq})∂8{
.⊃
.<<formulas are signalled by !! followed by an optional identifier followed
. by colon followed by the formula.  A reference to formula nn is written {eq nn}
.!!e1:	x=x
.!!e2:	y=y
.
.Equation {eq e2} comes after {eq e1}.>>
.at "!a" txt ";"	⊂
.("txt"[1]&"∩[%6"&"txt"[2]&"]&∪[ "&"txt"[3]&"%*]");
.  ⊃
.at "!j" ⊂"%2j∪[%60%2]&''"⊃;

.AT 8 ⊂ONCE INDENT 5;⊃
.at "qat" ⊂"%3at%*"⊃
.at "qNIL" ⊂"%1NIL%*"⊃
.at "qnil" ⊂"%1NIL%*"⊃
.at "qaa" ⊂"%3aa%*"⊃
.at "qad" ⊂"%3ad%*"⊃
.at "qeq" ⊂"%3eq%*"⊃
.at "qif" ⊂"%3if%*"⊃
.at "qthen" ⊂"%3then%*"⊃
.at "qelse" ⊂"%3else%*"⊃
.at "qda" ⊂"%3da%*"⊃
.at "qdd" ⊂"%3dd%*"⊃
.at "qa" ⊂"%3a%*"⊃
.at "qn" ⊂"%3n%*"⊃
.at "qd" ⊂"%3d%*"⊃
.at "qb" ⊂"%8T%*"⊃
.at "qw" ⊂"%Aw%*"⊃
.at "qx" ⊂"%8x%*"⊃
.at "qg" ⊂"%Ag%*"⊃
.at "qF" ⊂"%AF%*"⊃